home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NewSTAK.cpt / NewSTAK / background_2805.txt < prev    next >
Text File  |  1989-12-03  |  2KB  |  104 lines
  1. -- background: 2805 from stack: in
  2. -- bmap block id: 3097
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=71 top=315 right=340 bottom=106
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 902 / 902
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go prev card
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 4 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=20 top=309 right=342 bottom=51
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 1011 / 1011
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Home
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go home
  42. end mouseUp
  43.  
  44. on mousedown
  45.   if the optionkey is down then put script of me into bkgnd field lowerpane
  46. end mousedown
  47.  
  48.  
  49. -- part 7 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=113 top=315 right=340 bottom=148
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 26425 / 26425
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: 
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   go next card
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 8 (button)
  69. -- low flags: 00
  70. -- high flags: A004
  71. -- rect: left=221 top=316 right=338 bottom=469
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Create a new stack
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   NewSTAK "Yup, it works."
  83.   if the result <> empty then
  84.     put the result
  85.   else
  86.     go stack "Yup, it works."
  87.   end if
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 9 (field)
  93. -- low flags: 00
  94. -- high flags: 2007
  95. -- rect: left=19 top=37 right=289 bottom=492
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 8192
  102. -- line height: 16
  103. -- part name: 
  104.